library(rtweet)
library(plotly)
## authenticate via access token
token <- create_token(
app = "Witek",
consumer_key = Sys.getenv("CONSUMER_KEY"),
consumer_secret = Sys.getenv("CONSUMER_SECRET"),
access_token = Sys.getenv("ACCESS_TOKEN"),
access_secret = Sys.getenv("ACCESS_SECRET")
)
## search for 10000 tweets using the key words
rt <- search_tweets(
"data + scientist OR analyst OR analist OR engineer + lang:nl", n = 10000, include_rts = FALSE
)
Searching for tweets...
Finished collecting tweets!
## preview tweets data
rt
## preview users data
users_data(rt)
## plot time series
p <- ts_plot(rt)
ggplotly(p, width = "900")
rt <- apply(rt,2,as.character)
write.csv(rt, "twitter-jobs.csv")
LS0tCnRpdGxlOiAiUnR3ZWV0IgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0KbGlicmFyeShydHdlZXQpCmxpYnJhcnkocGxvdGx5KQoKIyMgYXV0aGVudGljYXRlIHZpYSBhY2Nlc3MgdG9rZW4KdG9rZW4gPC0gY3JlYXRlX3Rva2VuKAogIGFwcCA9ICJXaXRlayIsCiAgY29uc3VtZXJfa2V5ID0gU3lzLmdldGVudigiQ09OU1VNRVJfS0VZIiksCiAgY29uc3VtZXJfc2VjcmV0ID0gU3lzLmdldGVudigiQ09OU1VNRVJfU0VDUkVUIiksCiAgYWNjZXNzX3Rva2VuID0gU3lzLmdldGVudigiQUNDRVNTX1RPS0VOIiksCiAgYWNjZXNzX3NlY3JldCA9IFN5cy5nZXRlbnYoIkFDQ0VTU19TRUNSRVQiKQogICkKCiMjIHNlYXJjaCBmb3IgMTAwMDAgdHdlZXRzIHVzaW5nIHRoZSBrZXkgd29yZHMKcnQgPC0gc2VhcmNoX3R3ZWV0cygKICAiZGF0YSArIHNjaWVudGlzdCBPUiBhbmFseXN0IE9SIGFuYWxpc3QgT1IgZW5naW5lZXIgKyBsYW5nOm5sIiwgbiA9IDEwMDAwLCBpbmNsdWRlX3J0cyA9IEZBTFNFCikKCiMjIHByZXZpZXcgdHdlZXRzIGRhdGEKcnQKCiMjIHByZXZpZXcgdXNlcnMgZGF0YQp1c2Vyc19kYXRhKHJ0KQoKIyMgcGxvdCB0aW1lIHNlcmllcwpwIDwtIHRzX3Bsb3QocnQpCmdncGxvdGx5KHAsIHdpZHRoID0gIjkwMCIpCgpydCA8LSBhcHBseShydCwyLGFzLmNoYXJhY3RlcikKCndyaXRlLmNzdihydCwgInR3aXR0ZXItam9icy5jc3YiKQoKYGBgCgo=